home *** CD-ROM | disk | FTP | other *** search
/ Macworld Expo - Develope…Central & Net Innovations / Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso / Developer Central / Bowers Development / Demo AppMaker / Examples / Pascal OS8 / Everything / DModalCheckboxesData.p < prev    next >
Encoding:
Text File  |  1998-10-30  |  4.3 KB  |  273 lines  |  [TEXT/CWIE]
  1. { DModalCheckboxesData.p -- data container class for Everything}
  2.  
  3. Unit DModalCheckboxesData;
  4. Interface
  5.  
  6. Uses
  7.     Types,
  8.     OSUtils,
  9.  
  10.  
  11.     AMSignaler;
  12.  
  13. const
  14.     idStandard4        = longint ('Sta4');
  15.     idXx2        = longint ('Xx2 ');
  16.     idLR5        = longint ('LR5 ');
  17.     idLR6        = longint ('LR6 ');
  18.     idLR7        = longint ('LR7 ');
  19.     idLR8        = longint ('LR8 ');
  20.     idCheckbox3        = longint ('Che3');
  21.     idCheckbox4        = longint ('Che4');
  22.     idNext3        = longint ('Nex3');
  23.     idNext4        = longint ('Nex4');
  24.  
  25. type
  26.     {----------}
  27.     DModalCheckboxesData    = object (AMSignaler)
  28.  
  29.     {data members}
  30.         mStandard4:        Boolean;
  31.         mXx2:        Boolean;
  32.         mLR5:        Boolean;
  33.         mLR6:        Boolean;
  34.         mLR7:        Boolean;
  35.         mLR8:        Boolean;
  36.         mCheckbox3:        Boolean;
  37.         mCheckbox4:        Boolean;
  38.         mNext3:        Boolean;
  39.         mNext4:        Boolean;
  40.  
  41.     {methods}
  42.         Procedure Initialize; Override;
  43.  
  44.         Function  GetStandard4: Boolean;
  45.         Procedure SetStandard4    (inValue:        Boolean);
  46.         Function  GetXx2: Boolean;
  47.         Procedure SetXx2    (inValue:        Boolean);
  48.         Function  GetLR5: Boolean;
  49.         Procedure SetLR5    (inValue:        Boolean);
  50.         Function  GetLR6: Boolean;
  51.         Procedure SetLR6    (inValue:        Boolean);
  52.         Function  GetLR7: Boolean;
  53.         Procedure SetLR7    (inValue:        Boolean);
  54.         Function  GetLR8: Boolean;
  55.         Procedure SetLR8    (inValue:        Boolean);
  56.         Function  GetCheckbox3: Boolean;
  57.         Procedure SetCheckbox3    (inValue:        Boolean);
  58.         Function  GetCheckbox4: Boolean;
  59.         Procedure SetCheckbox4    (inValue:        Boolean);
  60.         Function  GetNext3: Boolean;
  61.         Procedure SetNext3    (inValue:        Boolean);
  62.         Function  GetNext4: Boolean;
  63.         Procedure SetNext4    (inValue:        Boolean);
  64.     end;
  65.  
  66. {----------}
  67. Function NewDModalCheckboxesData: DModalCheckboxesData;
  68.  
  69. {----------}
  70. Implementation
  71.  
  72. {----------}
  73. Function NewDModalCheckboxesData: DModalCheckboxesData;
  74. var
  75.     data:        DModalCheckboxesData;
  76. begin
  77.     data := nil;
  78.     New (data);
  79.     if data <> nil then begin
  80.         data.Initialize;
  81.     end;
  82.     NewDModalCheckboxesData := data;
  83. end;
  84.  
  85. {----------}
  86. Procedure DModalCheckboxesData.Initialize;
  87. begin
  88.     inherited Initialize;
  89.  
  90.     mStandard4 := false;
  91.     mXx2 := false;
  92.     mLR5 := false;
  93.     mLR6 := false;
  94.     mLR7 := false;
  95.     mLR8 := false;
  96.     mCheckbox3 := false;
  97.     mCheckbox4 := false;
  98.     mNext3 := false;
  99.     mNext4 := false;
  100. end;
  101.  
  102. {----------}
  103. Function DModalCheckboxesData.GetStandard4: Boolean;
  104. begin
  105.     GetStandard4 := mStandard4;
  106.  
  107.  
  108. end;
  109.  
  110. Procedure DModalCheckboxesData.SetStandard4 (
  111.     inValue:        Boolean);
  112. begin
  113.     mStandard4 := inValue;
  114.  
  115.  
  116.     SignalDataChanged (idStandard4);
  117. end;
  118.  
  119. {----------}
  120. Function DModalCheckboxesData.GetXx2: Boolean;
  121. begin
  122.     GetXx2 := mXx2;
  123.  
  124.  
  125. end;
  126.  
  127. Procedure DModalCheckboxesData.SetXx2 (
  128.     inValue:        Boolean);
  129. begin
  130.     mXx2 := inValue;
  131.  
  132.  
  133.     SignalDataChanged (idXx2);
  134. end;
  135.  
  136. {----------}
  137. Function DModalCheckboxesData.GetLR5: Boolean;
  138. begin
  139.     GetLR5 := mLR5;
  140.  
  141.  
  142. end;
  143.  
  144. Procedure DModalCheckboxesData.SetLR5 (
  145.     inValue:        Boolean);
  146. begin
  147.     mLR5 := inValue;
  148.  
  149.  
  150.     SignalDataChanged (idLR5);
  151. end;
  152.  
  153. {----------}
  154. Function DModalCheckboxesData.GetLR6: Boolean;
  155. begin
  156.     GetLR6 := mLR6;
  157.  
  158.  
  159. end;
  160.  
  161. Procedure DModalCheckboxesData.SetLR6 (
  162.     inValue:        Boolean);
  163. begin
  164.     mLR6 := inValue;
  165.  
  166.  
  167.     SignalDataChanged (idLR6);
  168. end;
  169.  
  170. {----------}
  171. Function DModalCheckboxesData.GetLR7: Boolean;
  172. begin
  173.     GetLR7 := mLR7;
  174.  
  175.  
  176. end;
  177.  
  178. Procedure DModalCheckboxesData.SetLR7 (
  179.     inValue:        Boolean);
  180. begin
  181.     mLR7 := inValue;
  182.  
  183.  
  184.     SignalDataChanged (idLR7);
  185. end;
  186.  
  187. {----------}
  188. Function DModalCheckboxesData.GetLR8: Boolean;
  189. begin
  190.     GetLR8 := mLR8;
  191.  
  192.  
  193. end;
  194.  
  195. Procedure DModalCheckboxesData.SetLR8 (
  196.     inValue:        Boolean);
  197. begin
  198.     mLR8 := inValue;
  199.  
  200.  
  201.     SignalDataChanged (idLR8);
  202. end;
  203.  
  204. {----------}
  205. Function DModalCheckboxesData.GetCheckbox3: Boolean;
  206. begin
  207.     GetCheckbox3 := mCheckbox3;
  208.  
  209.  
  210. end;
  211.  
  212. Procedure DModalCheckboxesData.SetCheckbox3 (
  213.     inValue:        Boolean);
  214. begin
  215.     mCheckbox3 := inValue;
  216.  
  217.  
  218.     SignalDataChanged (idCheckbox3);
  219. end;
  220.  
  221. {----------}
  222. Function DModalCheckboxesData.GetCheckbox4: Boolean;
  223. begin
  224.     GetCheckbox4 := mCheckbox4;
  225.  
  226.  
  227. end;
  228.  
  229. Procedure DModalCheckboxesData.SetCheckbox4 (
  230.     inValue:        Boolean);
  231. begin
  232.     mCheckbox4 := inValue;
  233.  
  234.  
  235.     SignalDataChanged (idCheckbox4);
  236. end;
  237.  
  238. {----------}
  239. Function DModalCheckboxesData.GetNext3: Boolean;
  240. begin
  241.     GetNext3 := mNext3;
  242.  
  243.  
  244. end;
  245.  
  246. Procedure DModalCheckboxesData.SetNext3 (
  247.     inValue:        Boolean);
  248. begin
  249.     mNext3 := inValue;
  250.  
  251.  
  252.     SignalDataChanged (idNext3);
  253. end;
  254.  
  255. {----------}
  256. Function DModalCheckboxesData.GetNext4: Boolean;
  257. begin
  258.     GetNext4 := mNext4;
  259.  
  260.  
  261. end;
  262.  
  263. Procedure DModalCheckboxesData.SetNext4 (
  264.     inValue:        Boolean);
  265. begin
  266.     mNext4 := inValue;
  267.  
  268.  
  269.     SignalDataChanged (idNext4);
  270. end;
  271.  
  272. end.
  273.